Apple Reference & Presentation Library 1993 Spring/ARPL-Spring-93-Partner-Edition.iso/Applications/Word Processing/Aldus Personal Press 2.0/PPPouch/AutoCreate/Business ID/_Invoice Modern/_Invoice Modern

Text File | 1992-05-29 | 13.0 KB | 412 lines | [SGPA/SCPG]

on Build
dodocsetup
locatefonts
newpublication pages 1 columns 0 PageWidth 612 PageHeight 792 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 36 rightmargin 36
set gridsettings to 18,18
set displayinvisibles to false
set facingpages to false
set gridsnap to false
set lockguides to false
set magneticguides to false
set printcoloroptions to false
set printcolornames to true
set printcutouts to true
set printregistrationmarks to false
set printmarksoptions to no
set printpageoptions to all
set printtypeoptions to publication
set spotcolor 1 to 0,0,0
set spotcolor 2 to 65535,65535,65535
set spotcolor 3 to 62167,2134,34028
set spotcolor 4 to 0,32768,4528
set spotcolor 5 to 577,43860,60159
set spotcolor 6 to 56683,2242,1698
set spotcolor 7 to 0,0,54272
set spotcolor 8 to 64512,62333,1327
set linepattern to 1
set fillpattern to 2
set color to 1
set framelinetype to 1
set mousecursor to roll
set mousecursor to roll
goto rightbackground
PublicationSetup columns 1
set mousecursor to roll
goto page 1
-- •p1 1•
draw rectangle 36,352,575,634
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,539,282
-- •p1 2•
draw Line 36,117,575,117
set locked of last object to true
-- •p1 3•
draw rectangle 38,37,147,107
set linepattern of last object to 0
set croprectangle of last object to 0,0,109,70
-- •p1 4•
draw rectangle 152,51,577,120
set locked of last object to true
set framelinetype of last object to 2
set fillpattern of last object to 0
set linepattern of last object to 0
set croprectangle of last object to 0,0,425,69
-- •p1 5•
draw rectangle 54,125,326,166
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,272,41
-- •p1 6•
draw Line 37,170,145,170
set locked of last object to true
-- •p1 7•
draw rectangle 36,193,306,264
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,270,71
-- •p1 8•
draw Line 37,268,577,268
set locked of last object to true
-- •p1 9•
draw rectangle 36,270,114,294
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 10•
draw Line 576,322,39,322
set locked of last object to true
-- •p1 11•
draw Line 36,636,577,636
set locked of last object to true
set framelinetype of last object to 4
-- •p1 12•
draw Line 102,322,102,635
set locked of last object to true
-- •p1 13•
draw Line 352,323,352,638
set locked of last object to true
-- •p1 14•
draw Line 429,323,429,637
set locked of last object to true
-- •p1 15•
draw rectangle 39,663,353,731
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,314,68
-- •p1 16•
draw Line 576,733,464,733
set locked of last object to true
set framelinetype of last object to 4
-- •p1 17•
draw rectangle 307,193,577,264
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,270,71
-- •p1 18•
draw rectangle 37,171,145,194
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,108,23
-- •p1 19•
draw rectangle 307,171,415,194
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,108,23
-- •p1 20•
draw rectangle 201,270,297,294
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,24
-- •p1 21•
draw rectangle 354,270,432,294
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 22•
draw rectangle 498,270,576,294
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 23•
draw rectangle 36,292,114,316
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 24•
draw rectangle 201,292,297,316
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,24
-- •p1 25•
draw rectangle 354,292,432,316
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 26•
draw rectangle 498,292,576,316
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,78,24
-- •p1 27•
draw rectangle 38,644,96,667
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,58,23
-- •p1 28•
draw rectangle 362,646,458,668
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,22
-- •p1 29•
draw rectangle 362,667,458,689
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,22
-- •p1 30•
draw rectangle 362,688,458,710
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,22
-- •p1 31•
draw rectangle 362,709,458,731
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,96,22
-- •p1 32•
draw rectangle 460,646,577,668
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,117,22
-- •p1 33•
draw rectangle 460,667,577,689
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,117,22
-- •p1 34•
draw rectangle 460,688,577,710
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,117,22
-- •p1 35•
draw rectangle 460,709,577,731
set locked of last object to true
set linepattern of last object to 0
set croprectangle of last object to 0,0,117,22
-- •p1 36•
draw rectangle 39,325,100,348
set locked of last object to true
set fillpattern of last object to 0
set linepattern of last object to 0
set croprectangle of last object to 0,0,61,23
-- •p1 37•
draw rectangle 105,325,166,348
set locked of last object to true
set fillpattern of last object to 0
set linepattern of last object to 0
set croprectangle of last object to 0,0,61,23
-- •p1 38•
draw rectangle 357,325,418,348
set locked of last object to true
set fillpattern of last object to 0
set linepattern of last object to 0
set croprectangle of last object to 0,0,61,23
-- •p1 39•
draw rectangle 433,325,494,348
set locked of last object to true
set fillpattern of last object to 0
set linepattern of last object to 0
set croprectangle of last object to 0,0,61,23
PublicationSetup columns 1
progressdialog show "Creating text…"
set the mousecursor to busy
link page objects 1,1 to story "autostory1"
put " " into story "autostory1"
select all text in story "autostory1"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,4 to story "Address"
put " " into temp
put temp into story "Address"
select all text in story "Address"
textsetup Helvetica "plain" 10 right
set the mousecursor to busy
link page objects 1,5 to story "autostory3"
put "I N V O I C E" into story "autostory3"
select all text in story "autostory3"
textsetup Helvetica "plain" 20 left
set the mousecursor to busy
link page objects 1,7 to story "autostory4"
put " " into story "autostory4"
select all text in story "autostory4"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,9 to story "autostory5"
put "Invoice Date" into story "autostory5"
select all text in story "autostory5"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,15 to story "autostory6"
put " " into story "autostory6"
select all text in story "autostory6"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,17 to story "autostory7"
put " " into story "autostory7"
select all text in story "autostory7"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,18 to story "autostory8"
put "Ship To:" into story "autostory8"
select all text in story "autostory8"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,19 to story "autostory9"
put "Bill To:" into story "autostory9"
select all text in story "autostory9"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,20 to story "autostory10"
put "Invoice Number" into story "autostory10"
select all text in story "autostory10"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,21 to story "autostory11"
put "Purchase Order" into story "autostory11"
select all text in story "autostory11"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,22 to story "autostory12"
put "Date Shipped" into story "autostory12"
select all text in story "autostory12"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,23 to story "autostory13"
put " " into story "autostory13"
select all text in story "autostory13"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,24 to story "autostory14"
put " " into story "autostory14"
select all text in story "autostory14"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,25 to story "autostory15"
put " " into story "autostory15"
select all text in story "autostory15"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,26 to story "autostory16"
put " " into story "autostory16"
select all text in story "autostory16"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,27 to story "autostory17"
put "Terms" into story "autostory17"
select all text in story "autostory17"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,28 to story "autostory18"
put "Subtotal" into story "autostory18"
select all text in story "autostory18"
textsetup Helvetica "italic" 10 right
set the mousecursor to busy
link page objects 1,29 to story "autostory19"
put "Sales Tax" into story "autostory19"
select all text in story "autostory19"
textsetup Helvetica "italic" 10 right
set the mousecursor to busy
link page objects 1,30 to story "autostory20"
put "Shipping" into story "autostory20"
select all text in story "autostory20"
textsetup Helvetica "italic" 10 right
set the mousecursor to busy
link page objects 1,31 to story "autostory21"
put "Total Due" into story "autostory21"
select all text in story "autostory21"
textsetup Helvetica "italic" 12 right
set the mousecursor to busy
link page objects 1,32 to story "autostory22"
put " " into story "autostory22"
select all text in story "autostory22"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,33 to story "autostory23"
put " " into story "autostory23"
select all text in story "autostory23"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,34 to story "autostory24"
put " " into story "autostory24"
select all text in story "autostory24"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,35 to story "autostory25"
put " " into story "autostory25"
select all text in story "autostory25"
textsetup Helvetica "plain" 9 left
set the mousecursor to busy
link page objects 1,36 to story "autostory26"
put "Quantity" into story "autostory26"
select all text in story "autostory26"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,37 to story "autostory27"
put "Description" into story "autostory27"
select all text in story "autostory27"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,38 to story "autostory28"
put "Unit Price" into story "autostory28"
select all text in story "autostory28"
textsetup Helvetica "italic" 10 left
set the mousecursor to busy
link page objects 1,39 to story "autostory29"
put "Extension" into story "autostory29"
select all text in story "autostory29"
textsetup Helvetica "italic" 10 left
choose maintool
progressdialog hide
end Build


on locatefonts
global vHelvetica, vPalatino, vTimes, vNewYork, systemfonts
put fontfamilies into systemfonts
if systemfonts contains "New York" then put "New York"  into vNewYork
else put "Geneva" into vNewYork
if systemfonts contains "helvetica" then put "helvetica"  into vHelvetica
else put "Geneva" into vHelvetica
if systemfonts contains "Times" then put "Times" into vTimes
else put vNewYork into vTimes
if systemfonts contains "Palatino" then put "Palatino" into vPalatino
else put vTimes into vPalatino

end locatefonts

on dodocsetup
set lockscreen to true
Set ShuffleTextObjects to false
set measurements to points
set displayguides to false
set view to actual
set itemdel to ","
set worddel to space
set linedel to cr
set saveglobals to true
progressdialog open
progressdialog show "Creating publication"
end dodocsetup

on textsetup thefont, theface, thesize, thejust
global vHelvetica, vPalatino, vTimes, vNewYork
set styleRecomposition to false
set the textfont to value("v"&thefont)
do "set the textface to "&theface
set the textsize to thesize
set the rulerjustification to thejust
set styleRecomposition to true
end textsetup

    7c<
B
Ï